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Lesson 2 : Building VB Applications 


2.1 Creating Your First Application 


First of all, launch Microsoft Visual Basic 6 compiler that you have installed earlier. In the New 
Project Dialog , choose Standard EXE to enter Visual Basic 6 integrated development environment. In 
the VB6 IDE, a default form with the name Form1 will appear. Next, double click on Form1 to bring 


up the source code window for Form1, as shown in Figure 2.1. 


The top of the source code window consists of a list of objects and their associated events or 
procedures. In the source code window, the object displayed is Form1 and the associated procedure 
is Load. 
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Figure 2.1 The VB6 Source Code Window 


When you click on the object box, the drop-down list will display a list of objects you have inserted 
into your form, as shown in figure 2.2. Here, you can see a form with the name Form1, a command 
button with the name Command1, a Label with the name Labell and a Picture Box with the name 
Picture1. 


"A Project1 - Form! (Code) 


Fig 
ure 2.2: List of Objects Similarly, when you click on the procedure box, a list of procedures associated 
with the object will be displayed , as shown in Figure 2.3. Some of the procedures associated with the 
object Form1 are Activate, Click, DblClick (which means Double-Click) , DragDrop, keyPress and 
more. Each object has its own set of procedures. You can always select an object and write codes for 
any of its procedure in order to perform certain tasks. 


6|Page 


FA Projecti - Form’ (Code) 


Private Sub Form Load() 


End Sub 


ure 2.3 List of Procedures 


You do not have to worry about the beginning and the end statements (i.e. Private Sub 
Form_Load....... End Sub.); Just key in the lines in between the above two statements exactly as are 
shown here. When you press F5 to run the program, you will be surprised that nothing showed up .In 
order to display the output of the program, you have to add the Form1.show statement like in 
Example 2.1.1 or you can just use Form_Activate () event procedure as shown in example 2.1.2. 
The command Print does not mean printing using a printer but it means displaying the output on the 
computer screen. Now, press F5 or click on the run button to run the program and you will get the 
output as shown in Figure 2.4. 


You can also perform arithmetic calculations as shown in Example 2.1.2. VB uses * to denote the 
multiplication operator and / to denote the division operator. The output is shown in Figure 2.5, 
where the results are arranged vertically. 


Example 2.1.1 

Private Sub Form _Load () 

Form1.show 

Print "Welcome to Visual Basic tutorial" 
End Sub 

Example 2.1.2 

Private Sub Form Activate ( ) 


Print 20 + 10 
Print 20 - 10 
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Print 20 * 10 
Print 20/10 


End Sub 


= Form’ 
elcome to Visual Basic Tutorial 


= Form’ 


30 
10 
200 
2 


2.1.2 


Figure 2.4 : The output of Example 


Figure 2.4 : The output of Example 


You can also use the + or the & operator to join two or more texts (string) together like in example 


2.1.4 (a) and (b) 
Example 2.1.4(a) 


Private Sub 
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A = "Tom" 


B = "likes" 
C = "to" 

D = "eat" 

E = "burger" 


PrintA+B+C+D+E 
End Sub 
Example 2.1.4(b) 


Private Sub 


A = "Tom" 

B = "likes" 
C = "to" 

D = "eat" 

E = "burger" 


PrintA& B&C& D&E 


End Sub 


The Output of Example 2.1.4(a) &(b) is as shown in Figure 2.7. 


=. Form! 
Tom likes to eat burgers 


2.2 Steps in Building a Visual Basic Application 

Step 1: Design the interface by adding controls to the form and set their properties 
Step 2:Write code for the event procedures 

Example 2.2 Changing Background and Foreground Color at Random 


In this example, we want to show you how to write code to change the background and the 
foreground color randomly. We will place two command buttons and a label on the form. One of the 
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command buttons will be used to change the background color while the other one will be used to 
change the foreground color. The Label is for displaying the foreground color. There are two events 
here, change background color and change foreground color. Therefore, we need to write code 
for the two event procedures. 


To make the program more interesting, we will use the Rnd() function, the Int() function and the RGB 
codes to change the color randomly. The Rnd() function creates a random number between 0 and 1 
and the RGB code uses a combination of three integers to form a certain color. The Int() is a function 
that converts a number into an integer by truncating its decimal part and the resulting integer is the 
largest integer that is smaller than the number. For example, Int(0.2)=0, Int(2.4)=2, Int(4.8)=4. 
Therefore, Int(Rnd()*256) returns the smallest integer 0 and the biggest integer 255. The format of 
RGB code is RGB(a,b,c), where a, b, c range from 0 to 255. For example, RGB(255,0,0) is red, 
RGB(255,255,255) is white and (0,0,0) is black. Do not worry about the jargons, you will learn them 
in later lesson. 


Now, rename the controls as follows: 


Form1-MyForm 
Label1-LbIMessage 
Command1-cmd_bgColor 
Command2-cmd_fgColor 


Next, change the caption of the Label to "Please Change My Color". In addition, change the caption of 
Command! button to "Change Background Color" and change the caption of Command2 button to 
"Change Foreground Color" 


Now, enter the following code 


Private Sub cmd_bgColor_Click() 
Dim r, g, b As Integer 

r = Int(Rnd() * 256) 

g = Int(Rnd() * 256) 

b = Int(Rnd() * 256) 
MyForm.BackColor = RGB(r, g, b) 
End Sub 


Private Sub Cmd_fgColor_Click() 
Dim r, g, b As Integer 

r = Int(Rnd() * 256) 

g = Int(Rnd() * 256) 

b = Int(Rnd() * 256) 

Lbl Msg.ForeColor = RGB(r, g, b) 
End Sub 


When you run the program, each time you press on the 'Change Background Color' button, you will 
see different background color. Similarly, each time you press on the 'Change Foreground Color', you 
will see the message on the Label changes color. The output is shown in Figure 2.8. 
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Program Examples 
Inputting & Outputting Data 


If you want to display something on screen in Visual Basic you can do it in a number of ways. The 
most common ways you will use are by Message Box or List Box. 


To input data in Visual Basic there are lots of different form controls that you can use to do this, the 
most common ones are text boxes and combo boxes. 
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Inputting - Creating an Interface 


Visual Basic have two main parts to it. The first part is creating the user interface, this is a simply 
drag and drop environment where you can add different form controls such as a text box. 


The second part to it is creating the code to make the user interface do/display something. 


When creating an interface, there are different types of form controls. Some of those that you will 
use are: 


Label - used to display text on an interface 

Text Box - used to allow the user to type in some text 

Combo Box - used to give a set of options to the user 

List Box - used to provide a list of options to choose from or display a list of information that 
has been calculated in the program. 

e Button - these are often used so when the user clicks on them something happens. 


In Visual Studio on the left hand side you have the toolbox, this is where you can drag and drop your 
form controls. It looks like this: 


All Windows Forms 
=) Common Controls 


Button 
CheckBox 
CheckedListBox 
ComboBox 
DateTimePicker 
Label 

LinkLabel 


() 
A 
A 
‘abl 


TextBox 


When you have dragged your form controls onto your form, you need to name them. You should add a 
prefix to any form control, the common ones are: 


Labels - bl 

Text Boxes - txt 
Combo Boxes - cmb 
List Boxes - Ist 
Buttons - btn 
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If you had a text box where the user enters their name a suitable name would be txtName. 


Difference between naming a control and changing the text You must always name controls, 
this can be done in the properties next to the option name, as shown below: 


Properties ~ qx 
IblWord System. Windows.Forms.Lab + 


oe 2} |) a) | 


“~ 


(Name) 


If you want to change what the form control says on it, you change the option text, as shown below: 


Properties vax 
Labell System. Windows.Forms.Labe + 
RightToLeft No “ 


Size 39, 13 
TabIndex 1 


Outputting Data - Message Boxes 


Below is an interface where the user will enter a word. When they enter the word in the text box 
called txtWord and press the button called btnRun it will display a message box that says what word 
they entered. 
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a Oo x 


cera Wort 


btnRun 


Interface 
Code when btnRun clicked 
MessageBox.Show("You entered the word " & txtWord.Text) 


This is what happens when the button is clicked: 


a a: 


Enter a Word: | Hello 


You entered the word Hello 


The text “You entered the word” is joined with the text box txtWord. As the user entered the word 
Hello it takes what it is in the text box and adds it into the message box. 


Example program 1 - Birthday Program 


The code for the program below will allow the user to enter their name, select the day of the week 
that their birthday falls on this year and then choose the month of their birthday from the list box. 
When they click the button it should display all the information back to them. 


Interface 
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i) x 


When is your birthday 


Your Name 
Dayo the Week: 


Month: IstMonth 


Code when btnBirthday clicked 


MessageBox.Show("Hello " & txtName.Text & vbNewLine & "Your birthday month is" & 
IstMonth.Text & 
" and the day of the birthday this year is " & cmbDay.Text) 


This is what happens when the button is clicked: 
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ay a O x 


When is your birthday 


YourNane 
Dayo the Week 


Hello Bob 
Your birthday month ts April and the day of the birthday this year is Thursday 


cs 


Example program 2 - Address Program 


The code for the program below will allow the user to enter various pieces of information. It will then 
use the information in these form controls to create a message box with all their information in. 


Interface 


a Address 


Enter your address: 


Hae Naber [ee | 

sre one [eS 
Tomy [sown 

curry facory 


_binDisplay 
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Code when btnDisplay clicked 


MessageBox.Show("Address Details" & vbNewLine & "Street: '" & txtNumber.Text &""& 
txtStreet.Text & vbNewLine & "Town/City: " & txtTown.Text & vbNewLine & 
"County: " & txtCounty.Text & vbNewLine & "Postcode: " & txtPostcode.Text) 


This is what happens when the button is clicked: 


Enter your address: 


House Number (46 


Street Name |Potovens Lane 


Address Details 
Street: 46 Potovens Lane 
Town/City: Wakefield 
County: West Yorkshire 
Postcode: WF12PF 


Town/City | Wakefield 


County West Yorkshire 


Postcode |WF12PF 


You can concatenate (join together) controls with strings in a MessageBox.Show() command. In the 
address example MessageBox.Show("Street: " & txtnumber.Text & "" & txtStreet.Text & vbNewLine 
& "Town/City: " + txtTown.Text) will combine the strings “Street” and “Town/City” with the form 
controls txtNumber, txtStreet and txtTown. 


vbNewLine is used to start a new line when it is displayed on screen. 
Outputting Data - List Boxes 

One of the other methods of outputting data is through a list box. 

To add data to a list box you need to use the following code: 
Listboxname.Items.Add(Data to add to list box) 


Consider the following interface: 
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To add the name entered and the email address entered to the list box when the button is clicked you 
need the following code: 


Code when btnAdd clicked 
IstOutput.Items.Add(txtName.Text & vbTab & txtEmail.Text) 


This is what happens when the button is clicked: 


ad 


Name: |Peter Tomlinson-Smith 
Enel 
Sally Jones sj 


jones@outwood.com 
Peter Tomlinson-Smith ptomlinson-smith@outwood.com 


You can add multiple rows of data to a list box. You can simply change the information in the text 
boxes and click the button again. vbTab is used to put a tab space between the two pieces of data. 


Sometimes when you use list boxes it makes it difficult to make the formatting look neat, this is 


shown in the screenshot above where the data is not lined up. To overcome this problem you can use 
a list view. 


With a list view box you can add columns and headings to make it look like a table, like the example 
shown below: 
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ad 


Eat: [ptoninsonsnth@euwecdeom 


Name Email 


Sally Jones s jones@outwood.com 
Peter Tomlinson-Smith p.tomlinson-smith@outwood.com 


When you add a list view control, you have to change a property to get it to work. Change the view 
from Large Icon to Details, like shown below: 


Properties = 4X 


IstOutput System.Windows.Forms + 


The code for when the button is clicked needs to follow the following format: 


LISTVIEWBOXNAME. Items.Add(New ListViewItem({COLUMN1, COLUMN2, COLUMN3, COLUMN4, 
COLUMNS})) 


For this example, the code would be: 
lstOutput.Items.Add(New ListViewltem({txtName.Text, txtEmail.Text})) 


This is because there are only two pieces of information, therefore you only need to fill in the 
information you want in two of the columns. 
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As well as adding code for when the button is pressed, you also need to add the column headings 
when the form loads. You should double click on the form itself and add the code in this subroutine. 
The format of the code for the column headings is: 


LISTVIEWBOXNAME.Columns.Add(“Text”, Size , Alignment) 
In this example as there are two headings the code would be: 


Private Sub Form1 Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
IstOutput.Columns.Add("Name", 150, HorizontalAlignment.Left) 
lstOutput.Columns.Add("Email", 250, HorizontalAlignment.Left) 

End Sub 


Example 3 - Test Scores - Using List View 


The code for the program below will allow the user to enter a name and three test scores. When 
btnAdd is clicked it will add the information to the list box. 


Interface 


John Smith 


Score 1:|45 


Name 


Sally Jones 
John Smith 


Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd.Click 
IstOutput.Items.Add(New ListViewltem({txtName.Text, txtScore1.Text, txtScore2.Text, 

txtScore3.Text})) 

End Sub 

Private Sub Form1 Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
IstOutput.Columns.Add("Name", 150, HorizontalAlignment.Left) 
lstOutput.Columns.Add("Score 1", 75, HorizontalAlignment.Center) 
IstOutput.Columns.Add("Score 2", 75, HorizontalAlignment.Center) 
lstOutput.Columns.Add("Score 3", 75, HorizontalAlignment.Center) 

End Sub 


This is what happens when the button is clicked: 
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| 
Score 3: |btScore3 


Score 2 Score 3 


Variables 

A variable is used to temporarily store a piece of data. 
For example: 

Dim number! As Integer = 10 


In the code above the variable is called number! and the value it is storing is 10. Variables can hold 
any type of data. Using variables makes it easier for people to understand what is going on. In Visual 
Basic you need to define a variable before you can use it. To do this you type Dim before the variable 
name the first time you use it. You should then say what type of data you think it is. In this example 
number! is an integer therefore the code to define a variable called number! as an integer is Dim 
number! as Integer 


For example: 


Dim cost As Decimal = 15.5 
Dim VAT As Decimal = 3.1 
Dim total_cost As Decimal = cost + VAT 


Example program 1 - Water Tank Capacity Program 


The code for the program below will allow the user to enter the height, width and depth of a water 
tank, then calculate and output the capacity. 


Interface 
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a Tank Ca... O x 


Water Tank Capacity 
Height (cm) |beHeight 


Width (cm) |b Width 
Det on 


btnCapacity 


Code when btnCapacity is clicked 


‘three variables that store the text box inputs from the interface as a decimal 

Dim height As Decimal = txtHeight.Text 

Dim width As Decimal = txtWidth.Text 

Dim depth As Decimal = txtDepth.Text 

‘calculation to work out the capacity 

Dim capacity As Decimal = (height * width * depth) / 1000 

‘outputs the capacity of the water tank 

MessageBox.Show("The tank holds " & Decimal.Round(capacity, 2).ToString & " litres of water") 


This is what happens when the button is clicked: 


Wl TankCa.. = — O 


Water Tank Capacity 


Height (cm) 145 The tank holds 57.96 litres of water 


Width (cm) |23 
 —_ 


Calculate Capacity 


The code above rounds the variable capacity, to round a variable you use the Decimal.Round() 
function. You write the name of the variable followed by the number of decimal places e.g. 
Decimal.Round(capacity,2). Also note that it has .ToString after it, this is because any variable that is 


not a string data type much be converted back to a string before it can be displayed in a message or 
list box. 


22|Page 


Example program 2 - Cylinder Volume Program 


The code for the program below will allow the radius and height of a circle, then calculate and output 
the volume and surface area. 


Interface 


ad 


Enter the Cylinder Radius [b¢Radius 


Code when btnCalculate is clicked 


‘three variables that store the two inputs from the interface and the value of pie 

Dim radius As Decimal = txtRadius.Text 

Dim height As Decimal = txtHeight.Text 

Dim pie As Decimal = 3.14159 

‘calculations to work out the volume and surface area 

Dim volume As Decimal = pie * (radius * radius) * height 

Dim surfaceArea As Decimal= 2 * (pie * (radius * radius)) + 2 * (pie * radius * height) 

#outputs the volume and surface area of the cylinder in a message box. 

MessageBox.Show("The volume of your cylinder is: " & Decimal.Round(volume, 2).ToString & " to 2 
decimal places" & vbNewLine & "The surface area of the cylinder is: " & Decimal.Round(surfaceArea, 
2).ToString & " to 2 decimal places.") 


This is what happens when the button is clicked: 


ay O 
Enter the Cylinder Radius {2.3 

: = The volume of your cylinder is: 76.45 to 2 decimal places 
Enter the Cylinder Height 4.6 The surface area of the cylinder is: 99.71 to 2 decimal places. 


Cylinder Volume 


Selection (if, then, else) 


Sometimes you will change what do you depending on the conditions. 
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For example: IF you wake up in the morning and it is raining THEN you will take a coat to school 
OTHERWISE you wont. 


IF the day is a Saturday AND the alarm clock goes off THEN you might turn it off and stay in bed 
OTHERWISE you might get up. 


Life is full of decisions that you will make depending on certain conditions, computers are no 
different. 


if-else 


For a computer to make decisions based on a condition, you must use an IF statement, it has the 
following structure: 


If condition Then 
true 
several instructions that are executed 
if the calcualation evaluates to True 


Else 
false 
several instructions that are exectued 
if the condition evaluates to False 
End If 


Consider the following IF statement: 


Dim age As Integer = txtAge.Text 
If age >= 18 Then 

MessageBox.Show("You are an adult") 
Else 

MessageBox.Show("You are still a child") 
End If 


The IF statement explained: 


e after the if is the condition age >= 18, this is checking to see if the age variable is more than 
or equal to 18. 

e after that line is code is the code that will only be run if that condition is True. If it is true it 
will display a message box that says You are an adult. 

e the word else then follows. The instructions underneath this are what will be run only if that 
condition is False. If it is false it will display a message box that says You are still a child. 


if-elseif-else 


An IF statement with an else will only allow you to check a single condition, however if you have more 
than one condition to check you can use if..elseif..else 


Consider the following IF statement: 


Dim colour As String = cmbColour.Text 
If colour = "Red" Then 
MessageBox.Show("STOP") 
Elseif colour = "Amber" Then 
MessageBox.Show("GET READY TO STOP") 
Else 
MessageBox.Show("GO") 
End If 
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The IF statement explained: 


e the program first checks to see if the colour selected in the combo box on the interface is Red 
and if it is will display a message box saying STOP. 

e ifthe colour selected isn’t red it will go onto the next condition where the Elseif is and check 
if the colour is Amber. If it is then it will display a message box saying GET READY TO STOP 

e if neither conditions are met it will go to the Else part of the code and display a message box 
saying GO. 


NOTE: It doesn’t need to use Elseif to see if the colour is Green as if it isn’t Red or Amber it must be 
Green, therefore you can just use else if there are not other options to consider. 


Example program 1 - Capital City 


The code for the program below ask the user the capital city of England and display a suitable 
message depending on whether they enter London. 


Interface 


a City.. — Oo x 


What is the Capital City of England? 
embCity v 


btnCheck 


Code when btnCheck is clicked 


‘stores the user selection from the combo box in the variable city 
Dim city As String = cmbCity.Text 
‘checks if the city variable has London stored in it 
If city = "London" Then 
‘displays correct if the condition is true 
MessageBox.Show("Correct, the capital city of England is: " & city) 
Else 
‘displays wrong if they have entered something else 
MessageBox.Show("Wrong, try again!") 
End If 


This is what happens when the button is clicked: 
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Correct, the capital city 


Example program 2 - Grade Calculator Program 


The code for the program below will ask the user to enter a score on a test and then decide what 


grade they got. 


Interface 


al! Grade Calc... O x 


certo sn 


Code when btnGradeCheck is clicked 


Dim score As Integer = txtScore.Text 
If score >= 70 Then 

MessageBox.Show("That test score is an A grade") 
Elself score >= 60 Then 

MessageBox.Show("That test score is a B grade") 
Elself score >= 50 Then 

MessageBox.Show("That test score is a C grade") 
Elself score >= 40 Then 

MessageBox.Show("That test score is a D grade") 
Else 

MessageBox.Show("That test score is a U grade") 
End If 


NOTE: When Elself is used it will only check the next condition If the previous condition is false. 


This is what happens when the button is clicked: 
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a Srade Calc 


Enter the test score: That test score is a C grade 


Example program 3 - Taxi Fare Calculator Program 


The code for the program below will calculate the fare for a taxi ride depending on the distance and 
number of passengers. It should add 50% onto the total if there are more than 5 passengers. 


Interface 


al Taxi 


Taxi Fare Calculator 


Distance (KM) bt Distance 


Number of Passengers |b¢Passengers 


btnFare 


Code when btnFare is clicked 


‘declares a variable called distance to store the distance entered 
Dim distance As Integer = txtDistance.Text 
‘declares a variable called passengers to store the number of passengers entered 
Dim passengers As Integer = txtPassengers.Text 
‘declares a variable called cost and then uses a calculation to work out the cost 
Dim cost As Decimal = 3 + ((distance - 1) * 2) 
‘checks to see if the number of passengers is more than 5 so that the additional 50% cost can be 
added 
If passengers > 5 Then 
‘calculates the extra cost if the condition is true 
cost = cost * 1.5 
End If 
‘a message box to display the total cost of the journey 
MessageBox.Show("The cost of the journey is: " & FormatCurrency(cost).ToString) 
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Important Points to Note 


e there is no Else on this If, you do not need to have one. An if can just check a condition and 
do something if it is True and nothing if it is False 

e inthe MessageBox.Show() command the cost is formatted to currency, this is done by writing 
FormatCurrency(variable) 


This is what happens when the button is clicked: 


Taxi Fare Calculator 
Datence tu) 5 


Number of Passengers |4 


The cost of the journey is: £11.00 


OC 


va 
| 


Taxi Fare Calculator 


Daence ti) [B| 


Number of Passengers [6 | 


The cost of the journey is: £16.50 


Validating Data 


What is Validation? 


Validation is the process of checking to see if data that is entered meets a set of requirements, this 
does mean it will always stop incorrect data being entered. For example if you had to enter a 
telephone number, you could validate it and say it needs to be 11 digits starting with a 0. The user 
could enter 01234567891, this meets the requirements set, but does not mean it is a valid telephone 
number. 


There are some simple ways in which you can validate programs, these are: 


e Type Check - checking the data is of a particular type before continuing 
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e Presence Check - checking that data is entered before continuing 
e Range Check - checking that data is between two boundaries set 
e Format Check - checking that data follows a set format 


Type Check Example 


In Visual Basic you can easily do a type check to check whether a value is a number or not a number, 
see the example below: 


Interface 


Entera Number: bt Number 


in 


Code when btnRun is clicked 


Dim IsNumbers As Boolean = IsNumeric(txtNumber.Text) 
If IsNumbers = True Then 

MessageBox.Show("What is entered in txtNumber is a number") 
Else 

MessageBox.Show("What is entered in txtNumber is not a number") 
End If 


IsNumeric will return a value either True or False after checking to see if a variable or form control is 
a number. You can then use an If to determine what to do. 


This is what happens when the button is clicked: 
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What is entered in ttNumber is a number Numb 


What is entered in t¢Number is not a number 


a 


Text 
entere 
d 


Presence Check Example 


In Visual Basic you can use the len() function to find the length of a variable or form control. You can 
then check to if the length is 0 and if it is this means nothing has been entered, see the example 
below: 


Interface 


Code when btnCheck is clicked 
If Len(txtNumber.Text) = 0 Then 
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MessageBox.Show("Please enter a number") 
Return 
Else 
MessageBox.Show("Welcome to the program") 
End If 


The len() function will return the length of the data stored in a variable/control. If the length is 0 this 
means nothing has been entered. Return can be used in a program as it will prevent any further code 
being executed. It stops the program running. 


This is what happens when the button is clicked: 


wi Validation Che... =) 2S 


Enter a Number 


Nothing 


entered 


WI Validation Che... 2 S| 38 


Entera Number 1234 


Welcome to the program 
Something 
entered 


Range Check Example 


You can also validate data by making sure it is within a certain range. For example, entering a test 
score you could say that it must be between 0 and 100. An example of how you could use a range 
check is shown below: 


Interface 
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a! Validation Che... 


Entera Number bd Number 


Code when btnCheck is clicked 


If txtNumber.Text > 0 And txtNumber.Text <= 100 Then 
MessageBox.Show("You entered a valid number") 
Else 
MessageBox.Show("You must enter a number between 1 and 100") 
End If 


To perform a range check you can simply use an If and then use And to connect two conditions 
together. 


This is what happens when the button is clicked: 
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| Gl Validation Che... 2S)  % 


You must enter a number between 1 and 100 Entered out of 
range 


a! Validation Che... 


Enter a Number 


Entered within 
range 


Format Check Example 


If you want to perform a format check in Visual Basic you will need to make use of a library. The 
Regular Expressions library allows you to set a pattern and then check to see if the data follows 
that pattern. 


Below are some examples of Regular Expressions patterns as well as what they mean: 
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Pattern Code What does it allow? 


It would allow more than 1 character between A 
and Z uppercase 


ATA-Z]+$ 


It would allow 2 numbers between 0 and 5 and 
“[0-5}{2}[A-Z]+$ more than 1 character between A and Z 
uppercase 
It would allow O or 1 character between a and z 
Ara. 73. lowercase followed by an @ sign, followed by at 
[a-zZ] \@[A-Za-z}{1,}$ least 1 character between A and Z either upper 
or lower case. 
It would allow at least 1 alphanumeric character 
followed by a hyphen followed by 1 number 
S[A-Za-z0-9]+\-[0-9]{1}\_ [A-Z]+$ between 0 and 9 followed by an underscore 
followed by at least 1 character between A and 
Z uppercase 
It would allow exactly 2 numbers between 0 and 
3 ‘ ‘ 9 followed by a full stop, followed by at least 1 
[0-9}{2}\.[0-9]+\.[0-9]+$ number between 0 and 9 followed by a full stop 
followed by at least 1 number between 0 and 9. 


The program below will check if an email meets the right format requirements. For the purpose of 
this task the requirements are: 


it must start with at least one alphanumeric character 
followed by the @ sign 

followed by at least one alphanumeric character 
followed by a full stop (.) 

followed by at least one alphanumeric character. 


The regular expression pattern that is needed to do this is: 
“[A-Za-z0-9]+\@[A-Za-z0-9]+\.[A-Za-z0-9]+$ 


At the top of your code above Public Class you need to import the regular expressions library, to do 
this enter the following code: 


Imports System.Text.RegularExpressions 


Interface 
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a Email Checker 


Email Checker: bd Email 


btn Validate 


Code when btnValidate is clicked 


Dim email As String = txtEmail.Text 
Dim pattern As String = "*[A-Za-z0-9]+\@[A-Za-z0-9]+\.[A-Za-z0-9]+$" 
Dim emailMatch As Match = Regex.Match(email, pattern) 
If emailMatch.Success = True Then 
MessageBox.Show("This is a valid email format") 
Else 
MessageBox.Show("This is an invalid email format") 
End If 


How it works 


e line 1 - declares a variable called email to store the contents of txtEmail 

e line 2 - declares a variable called pattern to store the regular expression pattern that will be 
compared to the email address 

e line 3 - this is a function from the regular expressions library. It will see if the email address 
matches the pattern set and return either True or False. It will then store this in the variable 
called emailMatch 

e line 4 - this will check if the emailMatch has been successful i.e. if it is True 

e = line 5 - if it is it will say it is a valid email 

e = line 7 - if it isn’t it will say it is an invalid email 


This is what happens when the button is clicked: 
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al Email Checker 


Valid 


This is an invalid email format Invali 


Lak) 


Iteration - Count Controlled 


Iteration is the process of repeating a process over and over. Often in programming you need to 
repeat a block of code several times. 


FOR Loops 


A for loop is known as a count controlled loop, you should use it when you want to repeat a block of 
code for a set number of times. 
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MessageBox. Show("Hello World”) 
MessageBox. Show("Hello World”) 
MessageBox. Show("Hello World”) 
MessageBox. Show("Hello World”) 
MessageBox. Show("Hello World”) 


For x = @ To 4 Step 1 
MessageBox. Show("Hello World”) 
Next 


Code without a loop Code using a loop 


How the for loop works 


e a for loop will repeat for a set number of times and it will repeat between two ranges. for x = 
0 to 4 will repeat between the bottom and the top value. 

e for x =0 to 4 will repeat 5 times, 0,1,2,3 and 4. 

e xis just a variable that is a counter and stores the number in the loop, this is useful if you 
need to use it in calculations. 


Example Program 1 - Name Repeater Program 


This program asks the user to enter their name and their age. It will then add their name to the list 
box for the number of times their age. 


Interface 
Code when btnGo is clicked 


Dim name As String = txtName.Text 
Dim age As Integer = txtAge.Text 
For x = 0 To age - 1 Step 1 
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IstOutput.Items.Add("Your name is: " + name) 
Next 


This is what happens when the button is clicked: 


Example Program 2 - Timestable Program 


This program will ask the user what timestable they want to learn, it will then calculate the 
timestables for that number. It makes use of the counter (x) in the loop to calculate the answer. 


Interface 
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all Times tables oO x 


Enter the times tables you want to leam (between 1 and 12) 
bet Number 


IstOutput 


Code when btnCalculate is clicked 


Dim number As Integer = txtNumber.Text 
Dim total As Integer 
‘loop that will repeat 13 times (0-12) 
For i= 0 To 12 Step 1 

‘the answer uses x which increases each time to work out the answer 

total = number * i 

‘x is used to display what it is multiplying the number entered by and it is added to the list 

box 

IstOutput.Items.Add(number.ToString & "x" & i.ToString & "=" & total.ToString) 
Next 


This is what happens when the button is clicked: 
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al Times tables Oo 4 


Enter the times tables you want to leam (between 1 and 12) 


5x0=0 

5x1=5 

5x2=10 
5x3=15 
5x4=20 
5x5=25 
5x6=30 
5x7=3% 
5x8=40 
5x9=45 
5x 10 =50 
5x 11=55 
5x 12 = 60 


Example Program 3 - Total Calculator Program 


This program asks the user to enter a five digit number. It then uses sub-strings to add digits 1,3 and 
5 together and subtract digits 2 and 4. This program combines using an if with a for loop. 


Interface 


Code when btnAdd is clicked 


Dim total As Integer = 0 
Dim number As String = txtNumber.Text 
‘an array which splits the number variable into characters and stores separately in the array 
Dim numbers As Array = number.ToCharArray 
‘loop to repeat five times 
Forx =0To4 
‘x is used to see how many digits have been checked 
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‘if x is 0 this is the first time through the loop, therefore digit 1 is being checked, 2 is digit 3 
and 4 is digit 5. 
Ifx = 0 Orx = 2 Orx = 4 Then 
‘the number is retrieved from the variable number by using x to get the 
‘correct digit. As it is a character array, it needs to be converted to a 
‘string and then converted to an integer so calculations can be carried out 
total = total + CInt(numbers(x).ToString) 
Else 
‘if it is digit 2 or 4 then it will subtract the number from the total 
total = total - CInt(numbers(x).ToString) 
End If 
Next 
‘the final total will be displayed in a message box, this is after the loop has finished 
MessageBox.Show("The final total is " & total.ToString) 


This is what happens when the button is clicked: 


a 


Enter a 5 digit number: |53629 


The final total is 15 


The answer on this example is 15. This is because it will add the first, third and fifth digit to the total 
(5 + 6 + 9) which gives 20. It then subtracts digits 2 and 4 (3 + 2) from the total, therefore 20 - 5 to 
give 15. 


Example 4 - Finding the average of numbers in a list 


This program has a list that contains test scores. The program will go through the list and add 
together all the numbers to get a total. It then works out the average of the test scores. 


Interface 


Code when btnFind is clicked 
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‘an array called scores, that contains 5 test scores 

Dim scores As Array = {10, 12, 7, 6, 10} 

‘the size of the array if found by using .Length, it will return 5 

Dim size As Integer = scores.Length 

Dim total As Integer = 0 

‘a loop that will repeat between 0 and the value of size - 1 (so it doesn't loop one too many times) 

For x = 0 To size - 1 
‘it will use x from the loop to add the correct element from the list to the total 
total = total + scores(x) 

Next 

‘the loop has now finished, the average is calculated by dividing the total by the size 

Dim average As Decimal = total / size 

MessageBox.Show("The average of the numbers is: " & average.ToString) 


This is what happens when the button is clicked: 


al 


Find Average The average of the numbers is: 9 


This program gives the average of 9 based on the values in the scores array. This is because 10 + 12 
+7+6+10=45. This is then divided by the size of the list (5) to give 9. 


Iteration - Condition Controlled 


Iteration is the process of repeating a process over and over. Often in programming you need to 
repeat a block of code several times. 


WHILE Loops 


A while loop is known as a condition controlled loop, you should use it when you do not know how 
many times the code needs to repeat as you can say repeat while a condition is True. 


Dim userentry As String = "y" 
While userentry <> "n" 

userentry = InputBox("Play again? y/n") 
End While 


MessageBox.Show("Game over") 


This is what happens when the button is clicked: 
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a — WindowsApplication1 


Play again? y/n 


Game over 


How the while loop works 


e there is a condition after the word while, it works like an if condition. while the variable 
userentry is not equal to n the code inside the loop (that is indented) will repeat 

e when n is entered by the user, the loop will end and it will continue with the code after the 
loop. In this case it will display a message box saying “Game Over”. 


Example Program 1 - Guess the Number 


This program asks the user to guess the number, it will keep asking them to guess the number until 
they guess it correctly. Once they have guessed it correctly it will tell them how many attempts it 
took. 


Code when btnGuess is clicked 


Dim answer As Integer = 15 
Dim attempts As Integer = 0 
Dim userentry As String = "" 
‘a loop that repeats while the users guess is not the same as the answer 
While answer.ToString <> userentry 
userentry = InputBox("Enter a number between 1 and 20") 
‘each time through the loop 1 is added to the number of attempts 
attempts = attempts + 1 
End While 
‘after the loop it will say how many attempts it took 
MessageBox.Show("Well done you correctly guessed the number, it took you " & attempts.ToString & 
" attempts") 


This is what happens when the button is clicked: 
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WHILE Loop Guess the Number 


x 
Enter a number between 1 and 20 
Cancel 


WHILE Loop Guess the Number 


Enter a number between 1 and 20 


[18 
Well done you correctly guessed the number, it took you 2 attempts 


Example Program 2 - Adding User Numbers Program 


This program asks the user to enter a number. It then asks them whether they want to enter another. 
If they do it will ask them another and add it to the previous number, it will keep doing this until they 
say they do not want to enter any more numbers. Finally it will output the total. 


Code when btnAdd is clicked 


Dim total As Integer = 0 
Dim another As String = "Y" 
‘the loop will repeat while the user types Y when asked if they want to enter another number 
While another = "Y" 
#asks the user to enter a number 
Dim number As Integer = InputBox("Enter a number") 
‘adds the number entered to the total 
total = total + number 
‘asks the user if they want to enter another number 
another = InputBox("Do you want to enter another number? Y/N ") 
End While 
‘after the loop ends it outputs the total 
MessageBox.Show("The total of your numbers was " & total.ToString) 


This is what happens when the button is clicked: 
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ay - Oo X | Adding Numbers 


r 
Adding Numbers 


Do you wart to enter another number? Y/N 


Adding Numbers 


Enter 8 number 


File 


Sometimes you will need to read data from a file to find information and then depending on what you 


The total of your numbers was 13 


Reading 


find do something with it. 


The process of reading from a file is always the same. The only thing that changes is what file you are 


using and what you are looking for in that file. 


Below are the key steps to the process: 


CSV 


When reading data from a file, the easiest file type to use is a CSV file, this stands for comma 


Open a connection to a file 
Store input from the user to find out what you are looking for 
Read through each line of the file 


When you read a line split the information into a list (so you can check individual pieces of 


information) 
Check if the piece of information entered by the user is in the line 
If it is do whatever you need to do. 


Files 


separated values. 


Consider the file below that contains a list of games for different consoles 
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0 1 


Xbox1 coD2 
Xbox1 FIFA14 


W 


| Games - Notepad 


ray 
co 


File Edit Format View Help 


v 
G) 


2 4 
50 8 
50 7 
Kbox1,C0D2,50,18,8 
Xbox1, FIFA14,50,PG,7 Xboxl GTAS 50 18 6 
Xbox1,GTA5,50,18,6 Xbox COD2 45 18 5 
Xbox, COD2,45,18,5 Xbox FIFAI4 45 PG 4 
Xbox, FIFA14,45,PG,4 
Xbox, GTAS, 45,18, 3 Xbox GTAS 45 18 3 
PS3,COD2,48,18,2 PS3.  COD2 48 ~ 18 2 
PS3,FIFA14,48,PG,1 PS3.sFIFA14. «ss 48——s«é='GW 1 
eee PSs ««GTAS,s48—‘«~CtCi‘<i«é«C B! 


CSV file as a text file CSV file in Excel 


Each piece of data is separated by a comma. This means that when you split the information up you 
can say to the program split the information into the list every time you find a comma. 


This means you can then refer to elements of the list to extract single pieces of information. Imagine 
the array you have is called games, the second image above shows how you would reference the 
information. If you wanted the name of the game it would be games(1), if you wanted to the rating it 
would be games(3) 


Worked example - File Reading - Speeding Cars 


Before creating a program to read data from a file you need to understand what data is in the file. In 
this example it will use a file called cars.csv, which is shown below: 


4) aA | B | 
1 THS6NQM _—96..25 
2 TTS1BDA 63.84 
3 ED35PJ) 74.57 
4 |DM35HMU —_91.46 
5 UX92EUS 

6 NC8YUX 


In this file there are two pieces of data, these are the car registration and the speed. When the data is 
split into a list, they can be referred to as element 0 for the registration and element 1 for the speed. 
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Step 1 - Creating the Interface Like any Visual Basic program the first thing you must do is create 
the interface. In this program the user will select a speed limit from a combo box and then it will 
output speeding cars to a list box. The interface could look something like this: 


ay! Spee... 


Cars breaking the speed limit 


[istOutput 


Speed Limit:| cmb SpeedLimit 


btnCheck 


Step 2 - Creating a Connection to the file 
Imports System.IO 


First you must import the input/output library. This code must go at the very top of your code above 
Public Class 


Dim filereader As New StreamReader("D:\cars.csv") 


This code will create a connection to the file cars.csv. It can then be referred to as the variable name 
which is filereader. NOTE: You must put the full path of the file, not just the name. 


Step 3 - Storing Input from the User In this program we need to find out the speed limit so we can 
compare it to the speed that the car is travelling to see if it is speeding, therefore the speed limit 
selected from the combo box needs to be stored. 


Dim speedlimit As Integer = cmbSpeedLimit.Text 
The code so far now looks like this: 


Dim filereader As New StreamReader("D:\cars.csv") 
Dim speedlimit As Integer = cmbSpeedLimit.Text 
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Step 4 - Reading through the file Now each line of the file needs to be checked, you will need to 
use a loop to do this. 


While filereader.EndOfStream = False 


This will create a loop that will repeat while the end of stream (end of the file) of the filereader 
variable has not been reached. 


The code so far now looks like this: 


Dim filereader As New StreamReader("D:\cars.csv") 
Dim speedlimit As Integer = cmbSpeedLimit.Text 
While filereader.EndOfStream = False 


Step 5 - Read a line from the file and split the data up Now we have a loop that will read each 
line in the file, we need to read one line at a time, and split the information up. We know it is a csv 
file and therefore each piece of data is separated by a comma. When it splits the line from the file it 
needs to store it in a list, the list below is called details. 


details = filereader.ReadLine.Split(",") 
The code so far now looks like this: 


Dim filereader As New StreamReader("D:\cars.csv") 
Dim speedlimit As Integer = cmbSpeedLimit.Text 
Dim details As Array 
While filereader.EndOfStream = False 

details = filereader.ReadLine.Split(",") 
End While 


NOTE: Don’t forget to declare the array before you use the details array in the loop 


Step 6 - Checking the Data The next stage is to check the data that we have read from the file. In 
this case we want to see if the speed is greater than (>) the speed limit. The speed is stored in 
element 1 of the details array. 


If details(1) > speedlimit Then 
The code so far now looks like this: 


Dim filereader As New StreamReader("D:\cars.csv") 
Dim speedlimit As Integer = cmbSpeedLimit.Text 
Dim details As Array 
While filereader.EndOfStream = False 

details = filereader.ReadLine.Split(",") 

If details(1) > speedlimit Then 
End While 


Step 7 - If the condition is met If the condition is met and in this case the car is speeding then you 
can type the code you want to run like you would for a normal if statement. In this example we want 
to add the information of the speeding cars to the list box 


lstOutput.Items.Add(details(0) & "'" & details(1)) 


The final code looks like this: 
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Dim filereader As New StreamReader("D:\cars.csv") 
Dim speedlimit As Integer = cmbSpeedLimit.Text 
Dim details As Array 
While filereader.EndOfStream = False 
details = filereader.ReadLine.Split(",") 
If details(1) > speedlimit Then 
lstOutput.Items.Add(details(0) & "'" & details(1)) 
End If 
End While 


details(0) is the car registration plate and details(1) is the speed travelling from the file. 


This is what happens when the button is clicked: 


al! Spee... 


Cars breaking the speed limit: 
TH56NQM 96.25 
TT51BDA 63.84 
ED35PJJ 74.57 
DM35HMU 91.46 
UX92EUS 67.49 
BAS2FH 67.91 
TE4AKS 82.08 
E77SCB 76.05 
R47BAH 80.07 
SBI6YU 96.1 


Dealing with no matches found in the file 


Sometimes the information you are looking for in a file might not be there, you will need to let the 
user know this. 


At the moment when you enter a speed limit where there are no cars speeding, the program looks 
like nothing happens: 
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What it should do is display a message something like There are no speeding cars, as shown below: 
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Cars breaking the speed limi: 


There are no speeding cars 


How to do this 


1. Create a boolean variable at the start of the program called found and set it to False. This is 
because at the start of the program no matches have been found. 
. Dim found As Boolean = False 
3. When a match has been found (inside the IF statement) add a line of code to change that 
variable to True. 
If details(1) > speedlimit Then 
found = True 'new line of code 
IstOutput.Items.Add(details(0) & "'" & details(1)) 
End If 
After the while loop create an if that checks if found=False. If found is still False and it has 
been through the loop and read the whole file and it is still False this means that the 
information you have been looking for in the file has not been found. 
9. If found=False Then 
10. Finally code what you want to happen if there are no matches inside the if. 
11. If found=False Then 
12. MessageBox.Show("There are no speeding cars") 
13. End If 


SO SOx Gi 


The final code now looks like this: 


Dim filereader As New StreamReader("D:\cars.csv") 
Dim speedlimit As Integer = cmbSpeedLimit.Text 
Dim details As Array 
Dim found As Boolean = False 
While filereader.EndOfStream = False 

details = filereader.ReadLine.Split(",") 

If details(1) > speedlimit Then 
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found = True 
lstOutput.Items.Add(details(0) + "" + details(1)) 
End If 
End While 
If found = False Then 
MessageBox.Show("There are no speeding cars") 
End If 


NOTE: You must use a variable to do this rather than adding an Else to the If as otherwise it could 
display the message multiple times. This is because everytime it reads a line from the file and doesn’t 
find the match it would display the message box, rather than just doing it once. 


Example Program 1 - Timetable Program 


This program asks the user to enter the day you want to view the timetable for. It will then look in the 
file and find the lessons for that day or say that it cannot be found. 


The CSV file looks like this: 


File Edit Format View Help 


Monday ,Maths ,Computing,Science,PE,German 
Tuesday, French,PE,Computing, Science, Geography 


wednesday ,Maths ,Computing,English,PE,German 
Thursday, French, PE,Computing, Science, Geography 
Friday,French,English,Computing, Science, Geography 


Interface 


0 x 


Lesson Timetable 


Select Day 


btnLessons 


Code when btnLessons is clicked 


Dim day As String = cmbDay.Text 'stores the input from the user 
Dim fileReader As New StreamReader("D:\timetable.csv") 'opens the file 
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Dim lessons As Array 'declares an array to store a line of information from the file 
Dim found As Boolean = False 'stores whether the day is found in the file, set to False at the 
beginning 
While fileReader.EndOfStream = False 'loops for the number of lines in the file 
lessons = fileReader.ReadLine.Split(",") 'splits the line into the lessons array 
If lessons(0) = day Then 'checks if the day entered is in element 0 of the list 
‘if it is it prints the timetable referring to the different elements of the array 
MessageBox.Show(day + vbNewLine + "Period 1 - " + lessons(1) + vbNewLine + "Period 2 - "+ 
lessons(2) + vbNewLine + "Period 3 -" + lessons(3) + vbNewLine + 
"Period 4 -'" + lessons(4) + vb NewLine + "Period 5 -" + lessons(5)) 
‘sets found to True as a match is found 
found = True 
End If 
End While 
‘after the loops checks if found if still False 
If found = False Then 
‘displays a message if it is 
MessageBox.Show("Day not found") 
End If 


This is what happens when the button is clicked: 


a 
Lesson Timetable oo 
Period 1 - Maths 
Select Day Wednesday v | Period 2 - Computing 
Period 3 - English 
Display Lessons Period 4 - PE 


Period 5 - German 


Example Program 2 - Stock Checker 


This program asks the user to enter the games console they are looking for. It will then look through 
the file and calculate the total value of each game in stock (the number there are multiplied by the 
price). If there are no games for that console it will say Console not found. 


The CSV file looks like this: 
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File Edit Format View Help 


kbox1,coD2,50,18,8 
Xbox1,FIFA14 ,50,PG,7 
Xbox1,GTA5,50,18,6 
xbox ,COD2 ,45,18,5 


xbox, FIFA14 ,45,PG,4 

xbox, GTA5,45,18,3 
|}PS3,COD2 ,48,18,2 
|PS3,FIFA14 ,48,PG,1 

PS3,GTA5,48,18,3 


Interface 


al Game Checker 


Select Console: 


Game Price i No. in Stock Total Cost 
IstStock 


Grand Total |b¢TotalValue 


Code when btnCheck is clicked 


Dim console As String = cmbselectconsole.Text 'stores the console choice from the user 
Dim filereader As New StreamReader("D:\games.csv") 'opens the file 
Dim details As Array 'declares an array to store a line of information from the file 
Dim gamevalue As Integer = 0 'stores the total value of a game 
Dim found As Boolean = False 'stores whether the console is found in the file, set to False at the 
beginning 
Dim totalvalue As Integer = 0 'stores the total value of all games 
While filereader.EndOfStream = False 'loops for the number of lines in the file 
details = filereader.ReadLine().Split(",") 'splits the line into the details list 
‘variables that store different pieces of information from the list to make them easier to reference 
Dim game As String = details(1) 
Dim price As Decimal = details(2) 
Dim rating As String = details(3) 
Dim noinstock As Integer = details(4) 
If details(0) = console Then 'checks if the console entered is in element 0 of the array 
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gamevalue = price * noinstock ‘calculates the total stock value of a game 
totalvalue = totalcost + gamecost 'calculates a running total of the entire stock value 
‘adds the game information to the list view box 
IstStock.Items.Add(New ListViewItem({game, FormatCurrency(price), rating, noinstock, 
FormatCurrency(gamevalue) })) 
‘sets found to True as a match is found 
found = True 
End If 
End While 
‘add the totalvalue to the text box on the interface 
txtTotalValue.Text = FormatCurrency(totalvalue) 
‘after the loops checks if found if still False 
If found = False Then 
‘displays a message if it is 
MessageBox.Show("Console not found.") 
End If 


Code when Form loads 


IstStock.Items.Clear() 'clears the list view box of any previous data. 
‘adds column headings to the list view box ready for data to be added 
IstStock.Columns.Add("Game", 100, HorizontalAlignment.Center) 
IstStock.Columns.Add("Price", 100, HorizontalAlignment.Center) 
IstStock.Columns.Add("Rating", 100, HorizontalAlignment.Center) 
IstStock.Columns.Add("No. in Stock", 100, HorizontalAlignment.Center) 
IstStock.Columns.Add("Total Cost", 100, HorizontalAlignment.Center) 


This is what happens when the button is clicked: 


al Game Checker 


Select Console: 
Xbox! 


Game Rating No. in Stock Total Cost 
COD2 18 8 £400.00 


FIFA14 PG 7 £350.00 
GTA5 18 6 £300.00 


Grand Total £1,050.00 


File Writing 
Sometimes you will need to write data to a file. 


The process of writing to a file is always the same. The only thing that changes is what file you are 
writing to and what you write to the file. 


Below are the key steps to the process: 
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Open a connection to a file in append mode. 
Write the information you want to a file 
e Close the connection to the file 


Write modes 


When you read from a file you would use the cost Dim filereader As New 
StreamReader("filename.csv"). When you want to write to a file it is very similar, but instead of 
StreamReader it is StreamWriter. Therefore the code to create a connection to write to the file is Dim 
filewriter As New StreamWriter("filename.csv"). If you do this it will create a connection to overwrite 
what is already in the file which you do not always want. Sometimes you just want to add information 
to the file, this is known as appending. To append to a file in Visual Basic you open a connection but 
add ,True after the file name like so: 


Dim filewriter As New StreamWriter("filename.csv",True) 
NOTE: you can call the variable filewriter whatever you want. 


Worked example - File Writing - Christmas List 


Imagine a program that when run asks the user to enter a gift they want for Christmas, how much it 
costs and the priority of how much they want it. 


Step 1 - Creating the Interface The interface for this program will need them to be able to enter 
the gift name, the cost and their priority, it would look like this: 


a Oo x 


Cost: {baCost 


Priority: |cmbPronty v| 1=Low, 5=High 


Step 1 - Getting the information to write to the file 


Dim gift As String = txtGift.Text 
Dim cost As Decimal = txtCost.Text 
Dim priority As Integer = cmbPriority.Text 


Before you can write to the file you need to store the information entered by the user that you want to 
add to the file. 


Step 2 - Creating a Connection to the file 


Dim filewriter As New StreamWriter("D:\filename.csv", True) 
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This code will create a connection to the file filename.csv in append mode, the ,True after the file 
name is what puts the write connection in append mode. It can then be referred to as the variable 
name which is filewriter 


Step 3 - Write the Information to the File As you are writing to a csv file you need to separate 
each piece of data that you want to add with a comma. 


filewriter.WriteLine(gift & "," & cost.ToString & "," & priority.ToString) 
NOTE: the any variables that are not a string data type need to be converted by using .ToString. 


Step 4 - Closing the Connection Once you have written to the file you need to close the connection 
to the file. This means it can be used by other parts of the program if needed. 


filewriter.close() 
The final code when btnAdd is clicked: 


Dim gift As String = txtGift.Text 

Dim cost As Decimal = txtCost.Text 

Dim priority As Integer = cmbPriority.Text 

Dim filewriter As New StreamWriter("D:\christmaslist.csv", True) 
filewriter.WriteLine(gift & "," & cost.ToString & "," & priority.ToString) 
filewriter.Close() 

MessageBox.Show("Gift added to File") 


The finished program looks like this when btnAdd is clicked: 


Gift added tc 


[Exe 


Gift added to File 


Priorty: {4 “| TsLow, 5*High Prioety: (2 v | TeLow, S=High 


The file created looks like this: 
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_ | christmaslist - Notepad a Oo 


File Edit Format View Help 


PS4,299.99,4 
Skateboard,56.99,2 


Example Program 1 - Deciding whether to write to a file 


Sometimes before you add information to a file, you might need to check if it meets certain 
requirements. This will require building selection (IF) into your code. 


At the moment the program above will always write the information entered to a file. Consider this 
new requirement: 


Santa is running out of money, it should only write to the file gifts that cost less than £150, otherwise 
say they cost too much 


How to do this 
1. After the information has been entered create an if that checks if the cost is less than 150. 


Dim gift As String = txtGift.Text 

Dim cost As Decimal = txtCost.Text 

Dim priority As Integer = cmbPriority.Text 
If cost < 150 Then 


1. ifthe cost is less than £150, then the lines of code that write to a file should be run. 


If cost < 150 Then 
Dim filewriter As New StreamWriter("D:\christmaslist.csv", True) 
filewriter.WriteLine(gift & "," & cost.ToString & "," & priority.ToString) 
filewriter.Close() 
MessageBox.Show("Gift added to File") 

End If 


1. ifthe cost is not less than £150, add an else and add code to say that the gift is too expensive. 


Else 
MessageBox.Show("That gift is too expensive, Santa doesn't have enough money") 


The final code now looks like this: 


Dim gift As String = txtGift.Text 

Dim cost As Decimal = txtCost.Text 

Dim priority As Integer = cmbPriority.Text 

If cost < 150 Then 
Dim filewriter As New StreamWriter("D:\christmaslist.csv", True) 
filewriter.WriteLine(gift & "," & cost.ToString & "," & priority.ToString) 
filewriter.Close() 
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MessageBox.Show("Gift added to File") 


Else 
MessageBox.Show("That gift is too expensive, Santa doesn't have enough money") 


End If 


Example Program 2 - Checking if data exists in a file before adding new data 


Sometimes you will need to create a program that reads through a file to see if certain information 
exists. If it doesn’t then write it to a file. 


This program asks the user to enter their names, email address and the number of years they have 
been teaching. It then looks in the file to see if the email address already exists. If it doesn’t it will 
write the information entered to a file, if it does it will say that person already exists. 


The CSV file looks like this: 


| staff - Notepad 
File Edit Format View Help 


Ben, Barnes,b.barnes@outwood.com, 7 
Andy ,O'Hara,a.ohara@outwood.com,9 


Andrew, Stead,a.stead@outwood.com, 25 
Sarah, Farrar,s.farrar@outwood.com,5 
Sally, Jones,s.jones@outwood.com,9 


Interface 


a Outwood Staff Oo x 


Outwood Computer Science Staff 
First Name [bd FirstName 


Sumame [bt Sumame 


Ena 
No Yo Teching 


binAdd 


Code when btnAdd is clicked 
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‘variables to store the four pieces of information entered by the user 
Dim firstname As String = txtFirstName.Text 
Dim surname As String = txtSurname.Text 
Dim email As String = txtEmail.Text 
Dim years As Integer = txtYears.Text 
Dim filereader As New StreamReader("D:/staff.csv") ‘opens the file in read mode 
Dim details As Array 'declares an array to store a line of information from the file 
Dim found As Boolean = False 'sets whether the user is found to False 
While filereader.EndOfStream = False ‘loops for the number of lines in the file 
details = filereader.ReadLine.Split(",") 'splits the line into the array called details 
If details(2) = email Then 'checks if the email entered is in the array 
found = True ‘if it is changes found to True 
End If 
End While 
filereader.Close() 'closes the file 
If found = True Then ‘after the loop checks if the user is found 
MessageBox.Show("Staff member is already in the file") 'displays on screen 
Else 
Dim filewriter As New StreamWriter("D:\staff.csv", True) 'open the file in append mode 
filewriter.WriteLine(firstname & "," & surname & "," & email & "," & years.ToString) 'write the 
new information to the file 
filewriter.Close() 'closes the file 
MessageBox.Show("Staff member added to file") 
End If 


This is what happens when the button is clicked: 


a! Outwood Staff O x 


| staff - Notepad 


Outwood Computer Science Staff 


First Name 
Sumame 

Email 

No. Years Teaching 


Member of staff exists 
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Andrew 


Stead 


a.stead@outwood.com 


File Edit Format View Help 


Ben, Barnes,b.barnes@outwo: 
Andy ,O'Hara,a.ohara@outwo 
Andrew, Stead,a.stead@outw 
Sarah, Farrar,s.farrar@out 
Sally, Jones,s.jones@outwo 


File after program has run 


a Outwood Staff _ O x 


Outwood Computer Science Staff 
Ft Name 
Sane 
Ena 


Member of staff doesn’t exist 


| staff - Notepad 
File Edit Format View Help 
Ben, Barnes,b.barnes@outwood.c 
Andy ,O'Hara,a.ohara@outwood.c 
Andrew, Stead,a.stead@outwood. 
Sarah, Farrar,s.farrar@outwood 
Sally, Jones,s.jones@outwood.c 
Tommy ,Kirkpatrick,t.kirkpatri 


File after program has run 


Example Program 3 - Reading Data from one file and writing to a separate file 


This program looks through a file that contains a list of students and the scores that they have got in 
four tests. When run it should calculate the average score for each student. If it is over 50 it should 
write their name and their average score to a new file, if not it should do nothing. The program 


should also count how many people have averaged above 50. 


The CSV file looks like this: 


ie | testscores - Notepad 

File Edit Format View Help 
Donald,Wagner,9B1, 1,95,25,70 
Mary, Gonzalez,9B1,52,46,72,51 


Kelly, Patterson,9C1,99,2,74,100 
Lisa, Ortiz,9C1,82,50,39,93 


Evelyn, Jackson, 9B1,30,93,2,47 
Philip, Dean, 9B1,73,28,50,50 
Jessica, Jacobs ,9C1,83,27,23,23 
Melissa, Black,9(C1,34,42,43,21 
Cynthia,Gonzales ,9B1,19,41,25,100 
Roger, Knight, 9B1,99,47,47,25 
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Interface 


Code when btnCalculate is clicked 


Dim filereader As New StreamReader("D:\testscores.csv") 'opens the file in read mode 
Dim details As Array 
Dim total As Integer = 0 
Dim average As Decimal = 0 
Dim studentsover50 As Integer = 0 'variable to store how many students have averaged over 50 
While filereader.EndOfStream = False 'reads each line in the file 
details = filereader.ReadLine.Split(",") splits the line into the array called details 
total = CInt(details(3)) + CInt(details(4)) + CInt(details(5)) + CInt(details(6)) 'adds up the four test 
scores 
average = total / 4 'calculates the average of the four test scores 
If average > 50 Then 'checks if the average is more than 50 
‘adds the student name, class and average to the list view box 
IstStudents.Items.Add(New ListViewItem({details(0) & "" & details(1), details(2), average})) 
‘adds 1 to the number of students averaging over 50 
studentsover50 = studentsover50 + 1 
‘opens the file averageover50.csv in append mode 
Dim filewriter As New StreamWriter("D:/aboveaverage.csv", True) 
‘writes the same information that has been added to the listview box to file 
filewriter.WriteLine(details(0) & "" & details(1) & "," & details(2) & "," & average.ToString) 
filewriter.Close() 'closes the file 
End If 
End While 
If studentsover50 = 0 Then ‘after the loop checks if the studentsover50 variable is 0 
MessageBox.Show("There were no students that averaged over 50") 'if it is then say no students 
averaged over 50 
Else 
MessageBox.Show("The number of students averaging over 50 was " & studentsover50.ToString) 
‘if not says how many averaged over 50. 
End If 
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Code when Form loads 


lstStudents.Items.Clear() 

IstStudents.Columns.Add("Name", 150, HorizontalAlignment.Center) 
IstStudents.Columns.Add("Class", 75, HorizontalAlignment.Center) 
IstStudents.Columns.Add("Average", 75, HorizontalAlignment.Center) 


This is what happens when the button is clicked: 


a 
Name Class Average 
Mary Gonzalez 9B1 55.25 
Kelly Patterson 9C1 68.75 
Lisa Ortiz 9C1 66 
Philip Dean 9B1 50.25 The numk 
Roger Knight 9B1 545 
Kenneth Lane SC1 61.25 
Dennis Allen 9C1 50.75 
Ruby Snyder 9B1 71.25 
Patricia Cooper 9C1 58.75 


| averageover50 - Notepad 
File Edit Format View Help 


Mary ,Gonzalez,9B1,55.25 
Kelly, Patterson,9C1,68.7 
Lisa,Ortiz,9C1,66.0 
Philip,Dean,9B1,5@.25 
Roger, Knight, 9B1,54.5 
Kenneth, Lane, 9C1,61.25 
Dennis,Allen,9C1,50.75 
Ruby, Snyder ,9B1,71.25 
Patricia,Cooper,9C1,58.7 
Andrea, Palmer ,9C1,57.75 
Lillian,Reynolds,9C1,59. 
James ,Price,9B1,57.5 
Phillip,Rose,9C1,62.5 
Evelyn,Mcdonald,9B1,50.7 
Brenda,Hall,9B1,62.5 
Karen,Moreno,9B1, 74.75 
Justin, Ortiz,9C1,56.5 
Joshua,Hall,9C1,56.75 
Laura, Campbel1,9C1,72.25 
Carolyn,Weaver ,9B1,82.5 
Jean, Carpenter ,9C1,76.@ 
Carl,Kim,9C1,56.5 

David, Perkins,9B1,51.5 


Visual Basic averageovero0.csv file 


File Updating 


Unfortunately, when you want to update information in a file when programming you cannot simply 
find the information and say what you want to change, you have to recreate the whole file changing 
the single piece of information you want to update, these are the steps you must go through: 


1. Read through each line of the original file that contains the information you want to update. 
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2. Ifthe line of the file has the information you want to update, then you can change the 
information, you then write this information to an updated file 

3. Ifthe line of the file doesn’t have the information you want to update, then you write this 
information (unchanged) to the updated file 

4. Once the entire original file has been checked, the updated file should have the same 
number of lines in, but with the updated information. Then you must delete the original file 
and rename the updated file to the name of the original file. 


NOTE: There are no new programming skills here, however you will need to combine the skills for 
reading and writing to a file together and program it in a logical order. 


Worked example - File Updating - Staff Details 


Imagine a program that has a file that contains information of staff working in a school. The program 
when run should ask the user to enter an email address to find the staff details. When it finds a match 
it should ask for the new information and then update the file. If it doesn’t find a match it should say 
that the email address is not in the file. 


The CSV file looks like this: 


__| staff - Notepad 


File Edit Format View Help 


Ben, Barnes, b.barnes@outwood.com, 7 
Andy ,O*Hara,a.ohara@outwood.com,9 
Andrew, Stead, a.stead@outwood.com,25 
Sarah, Farrar,s.farrar@outwood.com,5 
Sally, Jones,s.jones@outwood.com,9 


Program Summary A summary of how the program should work: 


e Read a line from the file and compare the email address 

e Ifitis a match ask the user to enter the new information and then write the new 
information to the update file. 

e = ©Ifit isn’t a match write the information that has been read into the list to the update file 
unchanged. 

e After every line in the whole file has been checked, delete the original file, rename the 
updated file to the name of the original file. 


Interface 
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al Outwood Staff Oo x 


Outwood Computer Science Staff 


First Name | bc First Name 


Sumame |btSumame 


Email 


No. Years Teaching 


Consider this code: 


Dim firstname As String = txtFirstName.Text 
Dim surname As String = txtSurname.Text 
Dim email As String = txtEmail.Text 
Dim years As Integer = txtYears.Text 
Dim filereader As New StreamReader("D:\staff.csv") 
Dim details As Array 
Dim found As Boolean = False 
While filereader.EndOfStream = False 

details = filereader.ReadLine.Split(",") 

If details(2) = email Then 

found = True 

End While 
If found = True Then 

MessageBox.Show("Details Updated") 
Else 

MessageBox.Show("That staff member's email cannot be found in the file, no changes made") 
End If 


So far this program will ask the user to enter an email address. It will then open the staff file and 
check each line in the file for that email address. If it finds it then it will ask the user to enter the new 
information, but not do anything with it. 


After the loop has finished it will check to see if the found variable is True and if it is say details 
updated and if not say the staff member cannot be found. 


NOTE: it doesn’t actually update the details at the moment. 
The code once it updates the file, this happens when btnUpdate is clicked: 


Dim firstname As String = txtFirstName.Text 

Dim surname As String = txtSurname.Text 

Dim email As String = txtEmail.Text 

Dim years As Integer = txtYears.Text 

Dim filereader As New StreamReader("D:\staff.csv") 
Dim details As Array 

Dim found As Boolean = False 
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While filereader.EndOfStream = False 
details = filereader.ReadLine.Split(",") 
Dim filewriter As New StreamWriter("D:\staffupdated.csv", True) 'new line 1 
If details(2) = email Then 
found = True 
filewriter.WriteLine(firstname & "," & surname & "," & email & "," & years.ToString) 'new line 2 
Else 'new line 3 
filewriter.WriteLine(details(0) + "," + details(1) + "," + details(2) + "," + details(3)) 'new line 4 
End If 
filewriter.Close() 'new line 5 
End While 
filereader.Close() 'new line 6 
My.Computer.FileSystem.DeleteFile("D:\staff.csv") 'new line 7 
My.Computer.FileSystem.RenameFile("D:\staffupdated.csv", "staff.csv") 'new line 8 
If found = True Then 
MessageBox.Show("Details Updated") 
Else 
MessageBox.Show("That staff member's email cannot be found in the file, no changes made") 
End If 


What the new code does 


e New Line 1 - opens a connection to a new temporary file called staffupdated.csv in append 
mode. This will be the new file with the updated information in. 

e New Line 2 - if the email address is found, it will write to the file all the new updated 
information from the form. 

e New Line 3 - an else is added so that if a line of the file has been read and it isn’t a match it 
must write the information unchanged to the temporary file. 

e =6©—New Line 4 - it will write the information that has been read into the list to the temporary file 
unchanged. 

e New Line 5 - closes the connection to the file you are writing to. This should be done after 
the if but inside the while loop. 

e New Line 6 - closes the connection to the file you are reading from. This should be done after 
the while loop. 

e New Line 7 - this will remove the original file, in this case staff.csv 

e New Line 8 - this will rename the temporary file staffupdated.csv to staff.csv which will mean 
the updated information now appears in the original file. 


When the program is run and the staff member exists in the file: 
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gl Outwood Staff oO x 


Outwood Computer Science Staff 


How the CSV file changes: 


©) staff - Notepad 

File Edit Format View Help 

Ben, Barnes,b.barnes@outwood.com,7 
Andy ,0O*Hara,a.ohara@outwood.com,9 
Andrew, Stead,a.stead@outwood.com,25 
Sarah, Farrar,s.farrar@outwood.com, 3 
Sally, Jones,s.jones@outwood.com,9 


Before the 
update 


©)| staff - Notepad 


File Edit Format View Help 

Bob, Barnes,b.barnes@outwood.com,10 © 

Andy, O'Hara,a.ohara@outwood.com,9 

Andrew, Stead,a.stead@outwood.com, 25 After the update 
Sarah, Farrar,s.farrar@outwood.com, 3 

Sally, Jones,s.jones@outwood.com,9 
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When the program is run and the staff member doesn’t exist in the file: 


wl Outwood Staff —_ O 
Outwood Computer Science Staff 


Fest Name 
Sameme 
Ena 
No. Years Teaching [15 | 


That staff member's email cannot be found in the file, no changes made 


Example Program 1 - Updating a File - Zoo Animals 


This program looks through a file that contains a list of animals and how many of them there are in 
the zoo. When run it should ask the user the animal that they are looking for and if it finds it then ask 
for the new number of that animals at the zoo and update the file. 


The CSV file looks like this: 
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S| zooanimals - Notepad 


File Edit Format View Help 


Marmoset,7 
Hartebeest,5 
Salamander, 3 
Aardvark,5 
Puma,4 
Pig,15 
Bear,2 


Interface 


a! ZooAnim.. — Oo x 
pina 


Number at the Zoo: |b¢ Number 


btn Update 


Code when btnUpdate is clicked 


‘two variables to store the inputs from the user interface 
Dim animal As String = txtAnimal.Text 
Dim number As Integer = txtNumber.Text 
Dim filereader As New StreamReader("D:/zooanimals.csv") 'opens the file in read mode 
Dim found As Boolean = False 'sets whether the animal is found to False 
Dim details As Array 'declares an array that will store a line of information from the file 
While filereader.EndOfStream = False 'reads each line in the file 
details = filereader.ReadLine.Split(",") 'splits the line into the list called details 
Dim filewriter As New StreamWriter("D:/zooanimalsupdated.csv", True) ‘opens the file 
zooanimalsupdated.csv in append mode 
If details(O0) = animal Then 'checks if the animal is found in the array 
found = True ‘if it is changes found to True 
filewriter.WriteLine(details(0) + "," + txtNumber.Text) 'writes the animal and the new number 
to the temp file 
Else 
filewriter.WriteLine(details(0) + "," + details(1)) 'if that line doesn't contain the animal write the 
details from the list to the temp file unchanged. 
End If 
filewriter.Close() 'closes the file that is being written to 
End While 
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filereader.Close() 'closes the file that is being read 
My.Computer.FileSystem.DeleteFile("D:\zooanimals.csv") 'deletes the original file 
My.Computer.FileSystem.RenameFile("D:\zooanimalsupdated.csv", "zooanimals.csv") 'renames the 
temporary file to the original file name 
If found = True Then ‘after the loop checks if the animal is found 

MessageBox.Show("Number of " + animal + " at the Zoo has been updated") 'if the animal was 
found say details updated 
Else 

MessageBox.Show("That animal cannot be found in the file, no changes made") ‘if the animal 
wasn't found say it cannot be found 
End If 


The program when run with an animal in the file: 


a Zoo Anim... 


| zooanimals - Notepad ie | zooanimals - Notepad 


File Edit Format View Help 


Bear,2 


Before Update 


File Edit Format View Help 


Marmoset, 7 Marmoset, 7 
Hartebeest,5 Hartebeest,5 
Salamander, 3 Salamander, 3 
Aardvark,5 Aardvark,5 
Puma,4 Puma,4 
Pig,15 Pig,10 


Bear,2 


After Update 


The program when run with an animal not in the file: 
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a Zoo Anim... 


ie | zooanimals - Notepad 


File Edit Format View Help 
Marmoset,7 


That animal cannot be found in the file, no changes made 


Lox] 


ie | zooanimals - Notepad 


File Edit Format View Help 
Marmoset, 7 


Hartebeest,5 Hartebeest,5 
Salamander, 3 Salamander, 3 
Aardvark,5 Aardvark,5 
Puma ,4 Puma ,4 
Pig,15 Pig,15 
Bear,2 Bear,2 


Before Update After Update 


Arrays/ArrayLists 
What is an Array or ArrayList? 


An array is a variable that can store multiple pieces of data under a single name. An array list can do 
exactly the same, so what is the difference? 


e  =©Array - an array is a set size that cannot change when the program is running. 
e ArrayList - an ArrayList is dynamic and the size of it can change when the programming is 
running as there are different operations that can be performed. 


An array in Visual Basic is created in the following way: 
Dim sentence As Array = {"The","quick","grey","fox","jumps"} 


This example creates an array called sentence that has 5 elements to it. 
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If you wanted to display the word grey in a message box you would type: 
MessageBox.Show(sentence(2)) 


NOTE: although grey is the third element in the list it is retrieved by saying sentence(2), this is 
because the elements start at 0. 


If you wanted to output the entire contents of the array, you could use a list box and use the following 
code: 


Dim sentence As Array = {"The","quick","grey","fox","jumps"} 
lstOutput.Items.Add(sentence(0)) 
lstOutput.Items.Add(sentence(1)) 
lstOutput.Items.Add(sentence(2)) 
IstOutput.Items.Add(sentence(3)) 
lstOutput.Items.Add(sentence(4)) 


You could also use a loop to do the same thing: 


Dim sentence As Array = {"The","quick","grey","fox","jumps"} 

For x = 0 to sentence.length-1 
lstOutput.Items.Add(sentence(x)) 

Next 


Example program 1 - Finding Products from a List 


The code for the program below asks the user to enter a product code. It will then look for it in the 
array. If it finds it it will display the name and price of the product. If it isn’t found it will say Product 
not found. 


Interface 


Product Code btProductCodel 


| btnFind | 


Code when btnFind is clicked 


‘this is a list that contains product information 
Dim product As Array = {"1262", "Cornflakes", "£1.40", "8743", "Weetabix", "£1.20", "9512", "Rice 
Krispies", "£1.32"} 
Dim product_code As String = txtProductCode.Text 'stores the product code the user has entered 
Dim found As Boolean = False 'stores whether the product has been found 
For x = 0 To product.Length - 1 'a loop that will repeat for the length of the list 

If product(x) = product_code Then 'checks if the product code entered matches the current 
element of the list being checked 

‘displays the product code, name and cost 
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MessageBox.Show("Product Code: " & product(x) & vbNewLine & "Product Name: " & product(x 
+ 1) & vbNewLine & "Price: " & product(x + 2)) 
‘sets found to true as the product is found 
found = True 
End If 
Next 
‘after the loop checks if the product was not found 
If found = False Then 
‘if it wasn't found it says product not found 
MessageBox.Show("Product not found") 
End If 


This is what happens when the button is clicked: 


ag 


Sn Nel Product Code: 8743 


Find Product Product Name: Weetabix 
Price: £1.20 


Example program 2 - Adding/Remove from a list 


This program asks the user if they want to add or remove items from an array list. An ArrayList is 
used here as the size of the array can change depending on whether the user wants to add/remove 
items from it. When using an ArrayList it must start empty and then populate items using 
arraylistname.Add(). This program will add three items to the ArrayList at the start and them 
whether they want to add/remove from the ArrayList. It will then output the contents of the new 
ArrayList. 


Interface 
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Code when btnRun is clicked 


IstOutput.Items.Clear() 'clear the list box 
Dim inventory As New ArrayList 'create an ArrayList 
‘adds three pieces of data to the ArrayList 
inventory.Add("torch") 
inventory.Add("gold coin") 
inventory.Add("key") 
IstOutput.Items.Add("Original Inventory:") 'adds a title to the list box 
‘a loop that repeats for the size of the ArrayList 
For x = 0 To inventory.Count - 1 
‘adds each item to the list box 
IstOutput.Items.Add(inventory(x)) 
Next 
Dim item As String 
‘asks the user what would they like to do 
Dim answer As String = InputBox("What would you like do to?" & vbNewLine & "1. Add an Item" & 
vbNewLine & "2. Remove an Item") 
‘if the first option is selected 
If answer = "1" Then 
‘ask the user to input the item to add 
item = InputBox("What item would you like to add to the inventory?") 
‘adds the item entered to the array lisy 
inventory.Add(item) 
‘if the second option is selected 
ElseIf answer = "2" Then 
‘ask the user to input the item to remove 
item = InputBox("What item would you like to remove from the inventory?") 
‘use remove to delete the item from the array list 
inventory.Remove(item) 
End If 
‘for loop that will output the updated list 
lstOutput.Items.Add("Updated Inventory:") 
For x = 0 To inventory.Count - 1 
lstOutput.Items.Add(inventory(x)) 


74|Page 


Next 


This is what happens when the button is clicked: 
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Functions 


What are Procedures / Functions? 


e When producing large programs you can end up with a lot of code. Procedures and functions 
allow for programs to be broken up into smaller pieces. 

e This makes them easier to read and easier to follow. It also means that if you work in a team, 
people can create different procedures/functions and combine them together. 

e Procedures/Functions can take values from the main program and do something with them 
e.g. add numbers together etc. 


What does a function look like? 


A function is either being defined or called. You define the function and what you want it to do first. 
Then in the main program you call the function that you have created. 


Defining 


Function functionname(parameters) 
CODE INSIDE THE FUNCTION 
End Function 


Calling 


functionname(parameters) 


Worked example - VAT Calculator 
This program will ask the user to enter a price and then calculate the VAT by calling a function. 
Step 1 - Creating the Interface 


Like any Visual Basic program you need to create the interface, the interface for this program is 
shown below: 


Price: betPrice 


btn VAT 


Step 2 - Create the function 
The first thing you should do is create the function that calculates the VAT (VAT is 20% of the price) 
To define a function you need to do the following: 


Function calculate(ByVal price As Decimal) 
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What this does: 


e Function - this lets Visual Basic know you are defining a function 

e calculate - this is the name of the function 

e (ByVal price As Integer) - this is a parameter. This is what is passed from the main 
program into the function. You refer to the value passed into the function by price. As you are 
passing in a value you must add ByVal before the name of the parameter and then just like 
you would when defining a variable say what data type it is, in this case As Integer 


Once the function is defined you can write whatever code you want to execute inside of it. In this case 
we need to work out the VAT, this is 20% of the price. 


Function calculate(ByVal price As Decimal) 
Dim vat As Decimal = price * 0.2 
End Function 


The final step is to return the VAT value back to the main program, therefore you need to add the 
code: 


return vat 
Step 2 - Creating the Main Program 


Once you have created the necessary functions you can create the main program. You would write 
the code for this for when the button is clicked, like you have done in other programs. 


In this program the user enters the price, therefore this will need to be stored: 
Dim amount As Decimal = txtPrice.Text 


Now you have the input stored from the user you need to display the VAT. To do this you will need to 
use the a message box like you normally would but inside of it call the function you created earlier. 
Add the following code: 


MessageBox.Show("The VAT is " + FormatCurrency(calculate(amount))) 


The first part of the message box command works like it always would, but then it called the function 
calculate and passes the amount that was entered into the function. Once the amount is in the 
function it is referred to as price. This is known as a local variable that can only be used within that 
function. 


The final code that is run when btnVAT is clicked: 


Dim amount As Decimal = txtPrice.Text 
MessageBox.Show("The VAT is " + FormatCurrency(calculate(amount))) 


The final function code: 


Function calculate(ByVal price As Integer) 
Dim vat As Decimal = price * 0.2 
Return vat 

End Function 


This is what happens when the button is clicked: 
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al 


Price: 5.60 


Calculate VAT 


The VAT is £1.12 


Example Program 1 - Highest Number 


This program will ask the user to enter two numbers. A function will then be called that checks which 
number is the highest and then output which one is the largest. If they are the same it will say they 
are the same. 


Interface 


r 


al 


Number 1: ba Number 


Number 2: ba Number2 


Code when btnFind is clicked 


‘stores the numbers entered by the user on the interface 
Dim num1 As Integer = txtNumber1.Text 
Dim num2 As Integer = txtNumber2.Text 
‘calls the function and stores the result in highest 
Dim highest As Integer = max(num1, num2) 
‘if highest is 0 that means they are the same 
If highest = 0 Then 
MessageBox.Show("Both numbers are the same") 
Else 
‘if highest is not 0 it prints the largest number 
MessageBox.Show(highest.ToString + " is the largest number") 
End If 


Code to create the function 


‘function that uses two parameters 
Function max(ByVal first As Integer, ByVal second As Integer) As Integer 
‘checks if first is more than second 
If first > second Then 
‘if it is returns the first number 
Return first 
‘checks if second is more than first 
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ElseIf second > first Then 
‘if it is returns the second number 
Return second 

Else 
‘if they are the same returns 0 
Return 0 

End If 

End Function 


This is what happens when the button is clicked: 


Both numbers are the same 


Example Program 2 - Conversion Program 


This program will ask the user what conversion method they want to use. After the user has chosen 
an option it will then ask them to enter a value. It will then call the relevant function and convert the 
number. 


Interface 
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Measurement: bt Measurement 


Conversion: cmbConversion 


| btnCalculate 


Code when btnCalculate is clicked 


‘stores the measurement entered by the user on the interface 
Dim measurement As Decimal = txtMeasurement.Text 
‘stores the selection made by the user on the interface 
Dim selection As String = cmbConversion.Text 
‘if M to KM is selected in the combo box 
If selection = "M to KM" Then 
‘calls the relevant function and then displays the conversion 
MessageBox.Show(measurement.ToString + " miles in KM is " + mtokm(measurement).ToString) 
‘if KM to M is selected in the combo box 
Elself selection = "KM to M" Then 
‘calls the relevant function and then displays the conversion 
MessageBox.Show(measurement.ToString + " KM in miles is " + kmtom(measurement).ToString) 
‘if CM to Inch is selected in the combo box 
Elself selection = "CM to Inch" Then 
‘calls the relevant function and then displays the conversion 
MessageBox.Show(measurement.ToString + "CM in Inches is " + 
cmtoinch(measurement).ToString) 
‘if any other value is entered 
Else 
‘calls the relevant function and then displays the conversion 
MessageBox.Show(measurement.ToString + "Inces in CM is "+ 
inchtocm(measurement).ToString) 
End If 


Code to create the necessary functions 


‘function that converts miles to kilometres 

Function mtokm(ByVal number As Decimal) 
Dim answer As Decimal = number * 1.6 
Return answer 

End Function 

‘function that converts kilometres to miles 

Function kmtom(ByVal number As Decimal) 
Dim answer As Decimal = number * 0.62 
Return answer 

End Function 

‘function that converts cm to inches 

Function cmtoinch(ByVal number As Decimal) 
Dim answer As Decimal = number * 0.39 
Return answer 

End Function 

‘function that converts inches to cm 

Function inchtocm(ByVal number As Decimal) 
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Dim answer As Decimal = number * 2.54 
Return answer 
End Function 


This is what happens when the button is clicked: 


3.4 KM in miles is 2.108 


e §©Inputting & Outputting Data 

oO Inputting - Creating an Interface 
Outputting Data - Message Boxes 
Example program 1 - Birthday Program 
Example program 2 - Address Program 
Qutputting Data - List Boxes 
Example 3 - Test Scores - Using List View 
Variables 
Selection (if, then, else) 
if-elseif-else 
Validating Data 
Iteration - Count Controlled 
Iteration - Condition Controlled 
File Reading 
File Writing 
File Updating 
Arrays/ArrayLists 


Functions 


oo0o0°0 


°o 


Back to top 
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About 
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Product List 
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Capabilities 
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Data Processing Platform 


Cloud Native 


Real-Time Digital Enablement 


Futureproofing & Modernization 


Searching, Scoring & Matching 


BL Analytics & Data Engineering 


Decision Automation 


Self-Service Empowerment 


Automation 


Data Catalog, Quality & Governance 
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untime Version Differences 


The Microsoft Access Runtime version differs from the retail version in several ways: 


e All design-related user interfaces are either removed or disabled 
0 Database and macro windows are hidden 
oO Filter By Form, Filter By Selection, and Advanced Filter windows are hidden 
O This means your users only use the forms and reports you create and do not work 
directly with the tables, queries, etc. 
e Users cannot create their own Microsoft Access databases or modify the object designs in the 
database(s) you give them 
O There is no Design View. Your users cannot modify your objects including queries and 
reports. 
O The VBA editor is not included. Your users cannot view or modify module code. 
oO They can view, add, edit, and delete the data in your database 
e Special Keys such as Ctrl+Break, Ctrl+G, Shift key when opening the database, and other 
keys to modify objects or code are not available 
e Microsoft Office features such as spell checking are not included. Note that spell checking is 
available if the user has that version of Office installed. 
e Crashes in your VBA code are not handled. Make sure you implement error handling 
throughout your application. 
¢ No Access help file 


Make Sure You Have Error Handling for Runtime Distributions 


Because users of the runtime version do not have the design surfaces, it's important that any MS 
Access application you distribute with the runtime has a robust global error handler in place for all 
procedures. Otherwise, unexpected errors will cause your application without recourse. The Debug 
dialog is not available with a runtime deployment. 


For more details on error handling read our papers on: 


e Error Handling and Debugging Techniques for Microsoft Access, VBA, and Visual Basic 6 


(VB6) 
e Pinpointing Exactly Where A Crash Occurs in Your Module Code 


Microsoft Access Runtime Versions and Download Links 


In earlier versions of Microsoft Access, you needed to purchase a special developer version of Access 
to receive the runtime version and other related resources. Since MS Access 2007, Microsoft has 
distributed the runtime versions for free. You can download them from 


FMS ¢« fms@fmsinc.com ¢ fmsinc.com * 703-356-4700 
Documentation and Analysis 

Total Access Analyzer is great for understanding your 
own work and taking over inherited applications. 
Here are two examples of the analysis. Visit our web 
site for many more ways to improve your databases. 
Total Access Analyzer for Microsoft Access 

New Features! 

Supports 32 and 64 bit versions of Microsoft 

Access 2019, 2016, 2013, and 2010 

15 New Reports for Queries, Forms, Reports 

and Control References 

Ribbon Documentation and References 

Analysis of Data Macro events and code 

Advanced SQL Parsing for better Table and 
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Query Cross-Referencing 

Improved Analysis and Validation of Subform 
References to Fields and Controls 
Visual Explorer Enhancements 

Quick Documentation Enhancements 
Modernized user interface with saved 
datasheet column widths 

Name filter added to selecting reports 
Improved Memory Management 

New help file, manual, and much more! 
Take Your Skills and Access Applications to the Next Level 
Find Broken References 

Detect Object Errors 

Catch Module Errors 

Secure your Database 

Show references to tables, 

queries, fields, forms, reports, 
macros, sub-macros, data 

macros, temporary variables, 

ribbons, and 

procedures that do not exist 

(usually deleted or renamed) 

*Corrupt objects 

*Invalid linked tables 

*Query SQL syntax errors 

¢Tables with duplicate indexes 

on the same field 

Reports without Default Printer 
«Modules without Option Explicit 
(especially forms and reports 

with code) 

*Objects calling procedures with 

an incorrect number of 

parameters 

*Users without passwords 

°Verify object permissions 

command bars, 

«Macro Actions with the wrong 
number of arguments 
*RunMenuCommands with the 

wrong number of arguments 

Catch Macro Errors 

Detect Unused Objects 

Improve your Form 

Improve your Reports 

Improve your Modules 

*Tables and Queries 

«Macros, sub-macros, embedded macros 
*Classes, procedures, variables, constants 
*Duplicate hotkeys 

«Command Buttons that do nothing 
*Not using the default tab order 
«Combo boxes without limit to list 
«Windows system gray color not used 
eLimit ability to change view or design 
¢Reports without a NoData event 
¢Reports without captions 
¢Procedures that should be private 
¢Procedures without error handling 
¢Variables conflicting with global and 
module level variables 


84|Page 


*Debug.Print & Stop Statements 
Functions without a return type 
Current formats 


File format sea 
Access Blank Project Template .adn 
Access Database (2007 and later) .accdb 
Access Database Runtime (2007 and later) -accdr 
Access Database Template (2007 and later) .accdt 
Access Add-In (2007 and later) -accda 
Access Workgroup, database for user-level security. .mdw 
Protected Access Database, with compiled VBA and macros Be aaie 
(2007 and later) 
Windows Shortcut: Access Macro mam 
Windows Shortcut: Access Query .maq 
Windows Shortcut: Access Report -mar 
Windows Shortcut: Access Table -mat 
Windows Shortcut: Access Form -maf 
Access lock files (associated with .accdb) .laccdb 
Legacy formats 
File format se 
Protected Access Data Project (not supported in 2013) .ade 
Access Data Project (not supported in 2013) .adp 
Access Database (2003 and earlier) .mdb 
Access Database (Pocket Access for Windows CE) .cdb 
Access Database, used for addins (Access 2, 95, 97), 
previously used for workgroups (Access 2) mde 
Access Blank Database Template (2003 and earlier) .mdn 


Access 
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Access (SQL Server) detached database (2000) .mdf 


Protected Access Database, with compiled VBA and macros 


(2003 and earlier) ande 
Access lock files (associated with .mdb) db 
Versions 
Versio 
7 n Release JET/ACE Office suite 
seen numb Date® version Supported OS version 
er 
Access 1.0 1.0 1992 1.0 Windows 3.058 
Access 1.1 1.1 1993 1.1 Windows 3.1x5® 
Access 2.0 2.0 1994 2.0 Windows 3.1x°! Office 4.3 Pro 
Access for ; 
Windows 7.0 August24, 34 windows 95"! Office 95 
95 1995 Professional 
; ; Office 97 
January Windows 95, Windows NT 3.51 SP5, Se ee ee 
Access 97 8.0 16, 1997 3.5 Windows NT 4.0 SP25 Professional and 
Developer 
Office 2000 
Access 90 June 7, Windows 95, Windows NT 4.0, Windows_ Professional, 
2000 . 1999 98, Windows 2000%*! Premium and 
Developer 
Access 10.0 May 31, 4.0 SP1 Windows NT 4.0 SP6, Windows 98, — on and 
2002 “2001 Windows 2000, Windows Me"! at dentnaaalts 
Developer 
Office 2003 
Access 11.0 November Windows 2000 SP3 or later, Windows Professional and 
2003 “27, 2003 XP, Windows Vista, Windows 7!! Professional 
Enterprise 
Office 2007 
Access January Windows XP SP2, Windows Server 2003 Eiptessignal, 
2007 i24 27, 2007 2 SP1, or newer operating system® Pe ee 
’ ——— P I Sy Ultimate and 
Enterprise 
Windows XP SP3, Windows Server 2003 Office 2010 
Reteae July 15 SP2, Windows Server 2003 R2, Windows Professional, 
sig, eG ; 14 Vista SP1, Windows Server 2008, Professional 
Windows 7, Windows Server 2008 R2, Academic and 
Windows Server 2012, Windows 8'©2! Professional Plus 
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Windows 7, Windows Server 2008 R2, 


Office 2013 


Microsoft 365 Apps 


eS 7 - 15.0 Loaere 15 Windows Server 2012, Windows 8, Professional and 
’ Windows 10'°! Professional Plus 
Access September Windows 7, Windows 8, Windows 8.1, ee aitl 
2016 22, 2015 Windows 10'6! . 
Professional Plus 
ffice 201 
Access 16.0 September 16 ies aoe i _ 
Windows 10 Professional and 
2019 24, 2018 ‘ 
Professional Plus 
Access October 5, : [66] 
2021 2021 Windows LO" for business“ 


There are no Access versions between 2.0 and 7.0 


¢Variables, constants, and procedure 
parameters that are not typecast 
«Unused labels (which may indicate 
disabled error handling) 

*Explicitly reference DAO vs. ADO 
«Forms and Reports 

«Combo boxes displaying a low # of rows 
*Unassociated labels 

¢ Missing navigation bar caption 
*Use Hyperlink hand over buttons 
«Timer event and timer interval mismatch 
«Report View exposing bad data 
¢Variables assigned but not used 
*Exits in the body of a procedure 
Field Consistency Analysis 

Duplicate SQL Analysis 

¢Find field names with different data 
type or size across tables 

¢Find identical SQL among queries, 
record sources, and row sources 
¢Subdatasheet Name is [Auto] 
*Queries with GroupBy based on 
queries with GroupBy 

Speed-up your Tables 

Speed-up your Queries 

Speed-up your Forms 

Speed-up Module Code 

Optimize VBA Configuration 

«Tables without a primary key 
*Replace SELECT * queries to reduce 
the number of fields retrieved 
Queries without WHERE clause 
«Slow COUNT and Domain functions 
*OLE Objects and bitmaps to convert 
to Image controls 

¢Procedures with no code (especially 
neglected Event Procedures) 
¢Replace FindFirst with Seek 

¢IIf commands with expressions 
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«Replace domain functions with DAO 
*Replace Variant and Object variables 
eAuto Indent should be On 

«Auto Syntax Checks should be Off 
¢Variable Declaration should be On 
eAuto index on Import/Create should 
be set to blank so indexes don' 
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External links 


HTML form 
r 
e = Article 
e §6Talk 
e Read 
e =6Edit 


e View history 


Tools 


From Wikipedia, the free encyclopedia 
(Redirected from Form (web)) 


A webform, web form or HTML form on a web page allows a user to enter data that is sent toa 
server for processing. Forms can resemble paper or database forms because web users fill out the 
forms using checkboxes, radio buttons, or text fields. For example, forms can be used to enter 
shipping or credit card data to order a product, or can be used to retrieve search results from a 
search engine. 
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Description 


Sample form. The form is 


enclosed in an HTML table for visual layout. 


Forms are enclosed in the HTML <form> element. This HTML element specifies the communication 
endpoint the data entered into the form should be submitted to, and the method of submitting the 
data, GET or POST. 


Elements 


Forms can be made up of standard graphical user interface elements: 


<text> — a simple text box that allows input of a single line of text. 

<email> - a type of <text> that requires a partially validated email address 

<number> - a type of <text> that requires a number 

<password> — similar to <text>, it is used for security purposes, in which the characters 
typed in are invisible or replaced by symbols such as * 

<radio> — a radio button 

<file> — a file select control for uploading a file 

<reset> — a reset button that, when activated, tells the browser to restore the values of the 
current form, to their initial values. 

<submit> — a button that tells the browser to take action on the form (typically to send it to 
a server) 

<textarea> — much like the <text> input field except a <textarea> allows for multiple rows 
of data to be shown and entered 

<select> — a drop-down list that displays a list of items a user can select from 


The sample image on the right shows most of these elements: 


a text box asking for your name 

a pair of radio buttons asking you to choose between gender values 
a select box giving you a list of eye colors to choose from 

a pair of check boxes to click on if they apply to you 

a text area to describe your athletic ability 

a submit button to send current form values to the server 
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These basic elements provide the most common graphical user interface (GUI) elements, but not all. 
For example, there are no equivalents to a tree view or grid view. 


A grid view, however, can be mimicked by using a standard HTML table with each cell containing a 
text input element. A tree view could also be mimicked through nested tables or, more semantically 
appropriately, nested lists. In both cases, a server-side process is responsible for processing the 
information, while JavaScript handles the user-interaction. Implementations of these interface 
elements are available through JavaScript libraries such as jQuery. 


HTML 4 introduced the <label> tag, which is intended to represent a caption in a user interface, and 
can be associated with a specific form control by specifying the id attribute of the control in the label 
tag's for attribute." This allows labels to stay with their elements when a window is resized and to 
allow more desktop-like functionality (e.g. clicking a radio button or checkbox's label will activate the 
associated input element). 


HTML 5 introduces a number of input tags that can be represented by other interface elements. 
Some are based upon text input fields and are intended to input and validate specific common data. 
These include <email> to enter email addresses, <tel> for telephone numbers, <number> for 
numeric values. There are additional attributes to specify required fields, fields that should have 
keyboard focus when the web page containing the form is loaded, and placeholder text that is 
displayed within the field but is not user input (such as the 'Search' text displayed in many search 
input fields before a search term is entered). These tasks used to be handled with JavaScript, but had 
become so common that support for them was added to the standard. The <date> input type displays 
a calendar from which the user can select a date or date range.”!! And the color input type can be 
represented as an input text simply checking the value entered is a correct hexadecimal 
representation of a color, according to the specification,“! or a color picker widget (the latter being 
the solution used in most browsers which support this attribute). 


Submission 


When data that has been entered into HTML forms is submitted, the names and values in the form 
elements are encoded and sent to the server in an HTTP request message using GET or POST. 
Historically, an email transport was also used.! The default MIME type (internet media type), 
application/x-www-form-urlencoded, is based on a very early version of the general URI percent- 
encoding rules, with a number of modifications such as newline normalization and replacing spaces 
with "+" instead of "%20". Another possible encoding, Internet media type multipart/form-data, is 
also available and is common for POST-based file submissions. 


Use with programming languages 


Forms are usually combined with programs written in various programming language to allow 
developers to create dynamic web sites. The most popular languages include both client-side and/or 
server-side languages. 


Although any programming language can be used on the server to process a form's data, the most 
commonly used languages are scripting languages, which tend to have stronger string handling 
functionality than programming languages such as C, and also have automatic memory management 
which helps to prevent buffer overrun attacks. 


Client-side 


The de facto client-side scripting language for web sites is JavaScript. Using JavaScript on the 
Document Object Model (DOM) leads to the method of Dynamic HTML that allows dynamic creation 
and modification of a web page within the browser. 
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While client-side languages used in conjunction with forms are limited, they often can serve to do pre- 
validation of the form data and/or to prepare the form data to send to a server-side program. This 
usage is being replaced, however, by HTML5's new input field types and required attribute. 


Server-side execution 


Server-side code can do a vast assortment of tasks to create dynamic web sites that, for technical or 
security reasons, client-side code cannot — from authenticating a login, to retrieving and storing data 
in a database, to spell checking, to sending e-mail. A significant advantage to server-side over client- 
side execution is the concentration of functionality onto the server rather than relying on different 
web browsers to implement various functions in consistent, standardized ways. In addition, 
processing forms on a server often results in increased security if server-side execution is designed 
not to trust the data supplied by the client and includes such techniques as HTML sanitization. One 
disadvantage to server side code is scalability—server side processing for all users occurs on the 
server, while client side processing occurs on individual client computers. 


Registration form of PHP-based e-commerce web-shop 
software ZenCart 


Interpreted languages 


Some of the interpreted languages commonly used to design interactive forms in web development 
are PHP, Python, Ruby, Perl, JSP, Adobe ColdFusion and some of the compiled languages commonly 
used are Java and C# with ASP.NET. 


PHP 


PHP is one very common language used for server-side "programming" and is one of the few 
languages created specifically for web programming.“ 


To use PHP with an HTML form, the URL of the PHP script is specified in the action attribute of the 
form tag. The target PHP file then accesses the data passed by the form through PHP's $ POST or 
$ GET variables, depending on the value of the method attribute used in the form. Here is a basic 
form handler PHP script that will display the contents of the first-name input field on the page: 


form. html 


<!DOCTYPE html> 
<html lang="en"> 
<head> 
<title>Form</title> 
</head> 
<body> 
<form action="form_handler.php"> 
<p><label>Name: <input name="first-name" /></label></p> 
<p><button type="submit">Submit</button></p> 
</form> 
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</body> 
</html> 


form_handler.php 


<!DOCTYPE html> 

<html! lang="en"> 

<head> 
<title>Output</title> 

</head> 

<body> 
<?php 
// This will print whatever the user entered into the form.html page. 
$firstName = filter input(INPUT_GET, "first-name", FILTER SANITIZE STRING); 
echo "Hello, ${firstName}!"; 
?> 

</body> 

</html> 


The sample code above uses PHP's filter input() function to sanitize the user's input before inserting 
it onto the page. Simply printing (echoing) user input to the browser without checking it first is 
something that should be avoided in secure forms processors: if a user entered the JavaScript code 
<script>alert(1)</script> into the firstname field, the browser would execute the script on the 

form _handler.php page, just as if it had been coded by the developer; malicious code could be 
executed this way. filter input() was introduced in PHP 5.2. Users of earlier PHP versions could use 
the htmlspecialchars() function, or reqular expressions to sanitize the user input before doing 
anything with it. 


Perl programming language 


Perl is another language often used for web development. Perl scripts are traditionally used as 
Common Gateway Interface applications (CGIs). In fact, Perl is such a common way to write CGIs that 
the two are often confused. CGIs may be written in other languages than Perl (compatibility with 
multiple languages is a design goal of the CGI protocol) and there are other ways to make Perl scripts 
interoperate with a web server than using CGI (such as FastCGI, Plack or Apache's mod_perl). 


Perl CGIs were once a very common way to write web applications. However, many web hosts today 
effectively only support PHP, and developers of web applications often seek compatibility with them. 


A modern Perl 5 CGI using the CGI module with a form similar to the one above might look like: 
form_handler.pl 


#!/usr/bin/env perl 
use strict; 
use CGI qw(:standard); 


my $name = param("first-name"); 
print header; 
print html( 
body( 
p("Hello, $name!"), 


, 


); 


Form-to-email scripts 
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Among the simplest and most commonly needed types of server-side script is that which simply 
emails the contents of a submitted form. This kind of script is frequently exploited by spammers, 
however, and many of the most popular form-to-email scripts in use are vulnerable to hijacking for 
the purpose of sending spam emails. One of the most popular scripts of this type was "FormMail.pl" 
made by Matt's Script Archive. Today, this script is no longer widely used in new development due to 


lack of updates, security concerns, and difficulty of configuration. 


Form builders 


Some companies offer forms as a hosted service. Usually, these companies give some kind of visual 
editor, reporting tools and infrastructure to create and host the forms, that can be embedded into 
webpages.! Web hosting companies provide templates to their clients as an add-on service. Other 
form hosting services offer free contact forms that a user can install on 
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